module param
  implicit none
  integer,parameter :: dbl=8
  integer,parameter :: len_fn=300
  integer,parameter :: len_linebuf=300
  integer,parameter :: len_wordbuf=15
  integer,parameter :: max_n_word=15
  integer,parameter :: max_n_char=3
  integer,parameter :: ccode=35
  integer,parameter :: max_diss=5
  integer,parameter :: max_rctn=5
  real(dbl),parameter :: kb=8.61734315d-05
  real(dbl),parameter :: pi=3.14159265
  real(dbl),parameter :: avogadro=6.0221415d+23
end module param
